Summer Blondes/Summer Blondes.iso/pc/summer.dir/00057_Field_57.txt

Text File | 1995-06-30 | 16KB | 587 lines

on Init --startMovie
  Global ClipLoc,CpBnList,IDVar,CrdMaxNum,CredBarIncr,CpSdList,CpVidList, ¬
            CpUtilList,CpPhtList,CpAnmList,DownLoad,Order,TestDrive,Addinfo,¬
            VolumeVar

  Set DownLoad = "Quadra 800:Desktop Folder:RHintrfc:dwnld.pic"
  Set Order = "Quadra 800:Desktop Folder:RHintrfc:order.pic"
  Set TestDrive = "Quadra 800:Desktop Folder:RHintrfc:tstdrv.pic"
  Set Addinfo = "Quadra 800:Desktop Folder:RHintrfc:Addinfo.txt"

  Set ClipLoc = 235
  Set the volume of sound 1 to 200
  Set VolumeVar = 200

  Set the forecolor of cast "NameField" = 0
  Set the textStyle of field "NameField" = "bold,extend"
  --Put " " into cast "Help Screen Display" -- not currently used
  --Set the forecolor of cast "Help Screen Display" = 0
  --Set the textStyle of field "Help Screen Display" = "bold,extend"

  Put " " into field "CreditsInfoDisplay"
  Set CpBnList = [1:0,2:0,3:0,4:0,5:0] -- Clip Button List
  Set IDVar = 0
  Set CrdMaxNum = 11 -- No of credits minus original display of 5
  Set CredBarIncr = 11 -- total distance (125 pix) divided by CrdMaxNum

  Set CpAnmList= ["B&W 3.1","Liftoff","Exclamation Point","Dollar Sign",¬
                  "B&W 3.1","Liftoff","Exclamation Point","Dollar Sign",¬
                  "B&W 3.1","Liftoff","Exclamation Point","Dollar Sign"]

  Set CpPhtList= ["Photo 1","Photo 2","Photo 3","Photo 4"]
  Set CpSdList = ["Read My Lips","Moof","Read My Lips","Moof"]

  Set CpVidList = ["B&W 3.1","Liftoff","Exclamation Point","Dollar Sign",¬
                  "B&W 3.1","Liftoff","Exclamation Point","Dollar Sign",¬
                  "B&W 3.1","Liftoff","Exclamation Point","Dollar Sign"]

  Set CpUtilList = ["Utility 1","Utility 2","Utility 3","Utility 4"]

end Init  --startMovie
---------------------------------------------
on CpAnmInit
  Global ButtonNum,ScaleFac,ListVar,CpAnmList,Viztype

  puppetSprite 25, False -- PhtPictDisplay
  puppetSprite 40, False
  puppetSprite 41, False -- VidPictDisplay
  Set ButtonNum = 1
  Set ScaleFac = 10
  Set ListVar = CpAnmList
  Set Viztype = 2
  --Set the visibility of sprite 30 to False -- tweak
  ClipCleanUp
  CpBnUpdate --change orderof sprite action & slider reset-update
  VidPictDisplay
end CpAnmInit
---------------------------------------------
on CpPhtInit
  Global ButtonNum,ScaleFac,ListVar,CpPhtList,Viztype

  puppetSprite 25, False
  puppetSprite 40, False
  puppetSprite 41, False
  Set ButtonNum = 2
  Set ScaleFac = 40
  Set ListVar = CpPhtList
  Set Viztype = 1 -- f/ slider update of screen
  ClipCleanUp
  CpBnUpdate
  PictDisplay
end CpPhtInit
---------------------------------------------
on CpSdInit
  Global ButtonNum,ScaleFac,ListVar,CpSdList,Viztype

  puppetSprite 25, False
  puppetSprite 40, False
  puppetSprite 41, False
  Set ButtonNum = 3
  Set ScaleFac = 30
  Set ListVar = CpSdList
  Set Viztype = 0
  ClipCleanUp
  CpBnUpdate
end CpSdInit
---------------------------------------------
on CpVidInit
  Global ButtonNum,ScaleFac,ListVar,CpVidList,Viztype

  puppetSprite 25, False
  puppetSprite 40, False
  puppetSprite 41, False
  Set ButtonNum = 4
  Set ScaleFac = 10
  Set ListVar = CpVidList
  Set Viztype = 2
  ClipCleanUp
  CpBnUpdate
  VidPictDisplay
end CpVidInit
---------------------------------------------
on CpUtilInit
  Global ButtonNum,ScaleFac,ListVar,CpUtilList,Viztype

  puppetSprite 25, False
  puppetSprite 40, False
  puppetSprite 41, False
  Set ButtonNum = 5
  Set ScaleFac = 40
  Set ListVar = CpUtilList
  Set Viztype = 0
  ClipCleanUp
  CpBnUpdate
end CpUtilInit
---------------------------------------------
on SpriteShutDown

  puppetSprite 48, False  -- ? temp button ch. poss. yel crdts bn in credits
  puppetSprite 47, False -- help button,
  puppetSprite 46, False -- vol slider
  puppetSprite 45, False -- backplate f/ vol slider
  puppetSprite 41, False
  puppetSprite 40, False
  puppetSprite 39, False
  puppetSprite 38, False
  puppetSprite 37, False
  puppetSprite 36, False
  puppetSprite 35, False -- slider
  puppetSprite 34, False -- win bar
  puppetSprite 32, False -- up arrow
  puppetSprite 31, False -- dwn arrow,zoom
  puppetSprite 30, False -- video
  puppetSprite 25, False -- text,pict photo
  --puppetSprite 23, False -- vol. Icon -- only shut down at end - ?

end SpriteShutDown
---------------------------------------------
on ClipCleanUp

  puppetSound 0
  put "" into field "NameField"
end  ClipCleanUp
---------------------------------------------
on ButtonHandler
  Global Go

  Set Go = True
  Set n = the castnum of sprite the clickon
  Set n = n + 1

  repeat while the mouseDown
    If ((the castNum of sprite the clickOn) = the mouseCast) then
      Set the castnum of sprite the clickon = n
      updateStage
    else --
      Set the castnum of sprite the clickon = n - 1
      updateStage
      Set Go = False
      if the mouseUp then
        Set Go = 0
      else if ((the castNum of sprite the clickOn) = the mouseCast) then
        Set the castnum of sprite the clickon = n     --rollbkon
        updateStage
        Set Go = 1
      end if
    end if
  end repeat

  Set n = n - 1
  Set the castnum of sprite the clickon = n
end ButtonHandler
---------------------------------------------
on MusicFade

  sound fadeOut 1, 2*60

end MusicFade
---------------------------------------------
on HelpEnable

  puppetSprite 47, True
  Set the locH of sprite 47 = 116
  Set the locV of sprite 47 = 334
  Set the castNum of sprite 47 = 345 -- Help Down
  updateStage
  --HelpDisplay

end HelpEnable
---------------------------------------------
on HelpDisable

  puppetSprite 47, False -- the button
  puppetSprite 48, False -- the display
  updateStage
  --go to marker (-1)

end HelpDisable
---------------------------------------------

on SliderHandler

  Global ClipLoc

  --SpriteShutDown
  repeat while the mouseDown

    puppetSprite 37, true  -- 37
    Set the castNum of sprite 37 to 198
    Set the moveableSprite of sprite 37 to True
    Set the constraint of sprite 37 to 36
    Set the locH of sprite 37 to the mouseH
    Set ClipLoc to the mouseH
    SliderReadOut
    updateStage
  end repeat

  LocStore

end SliderHandler

---------------------------------------------
on SliderUpdate
  Global ClipLoc

  puppetSprite 37, true
  Set the visible of sprite 37 = true
  Set the locH of sprite 37 = ClipLoc
  SliderReadOut
  updateStage

end SliderUpdate
---------------------------------------------
on SliderButton n
  Global ClipLoc,ScaleFac

  Set ClipLoc = ClipLoc + (n*ScaleFac)
  SliderReadOut
  LocStore

end SliderButton
---------------------------------------------
on SliderReadOut
  Global ClipLoc,ScaleFac,LocNum

  If ClipLoc > 353 then set ClipLoc = 353
  If ClipLoc < 234 then set ClipLoc = 234
  Put ((ClipLoc - 234)/ScaleFac) +1 into field "LocReadOut"
  Set LocNum = ((ClipLoc - 234)/ScaleFac) +1
  --FieldReadOut -- can be re-enabled f/ continous but slow readout
  -- another ver tbd
end SliderReadOut
---------------------------------------------
on FieldReadOut
  Global CpSdList,ListVar,SoundName,CpVidList,LocNum,n

  --Set n = (charToNum(field "LocReadOut")) - 48
  Set n = LocNum
  Set name = getAt(ListVar,n)
  Set the forecolor of cast "NameField" = 0
  Set the textStyle of field "NameField" = "bold,extend"

  Put name into field "NameField"
  Set SoundName = field "NameField" -- name is used to access sound

end FieldReadOut
---------------------------------------------
on LocStore
  Global ClipLoc,ButtonNum,CpBnList,ScaleFac,LocNum

  Set m = LocNum -- (field "LocReadOut")
  setAt(CpBnList,ButtonNum,m) -- stores in CpBnList the loc. of slider
  Set the locH of sprite 37 = (m*ScaleFac) +234
end Locstore
---------------------------------------------
on VisualDisplay
  Global Viztype

  If Viztype = 1 then
    PictDisplay
  else if Viztype = 2 then
    VidPictDisplay
  end if
end Visual Diplay
---------------------------------------------
on PictDisplay
  Global LocNum

  PuppetSprite 25, True
  Set the castNum of sprite 25 = 500 + LocNum
  updateStage
end PictDisplay
---------------------------------------------
on VidPictDisplay
  Global LocNum

  PUT LocNum
  PuppetSprite 41, True
  Set the castNum of sprite 41 = 425 + LocNum
  updateStage
end VidPictDisplay
---------------------------------------------
on MagnfPlus
  Global LocNum

  PuppetSprite 40, True
  PuppetSprite 25, True

  Set the castNum of sprite 40 = 164 -- icon
  Set the castNum of sprite 25 = 600 + LocNum-- pict
  Set the locH of sprite 25 = 415
  Set the locV of sprite 25 = 188
  updateStage
end MagnfPlus
---------------------------------------------
on MagnfMinus
  Global LocNum

  PuppetSprite 40, True
  PuppetSprite 25, True

  Set the castNum of sprite 40 = 162
  Set the castNum of sprite 25 = 500 + LocNum -- pict
  Set the locH of sprite 25 = 328
  Set the locV of sprite 25 = 127
  updateStage
end MagnfMinus
---------------------------------------------
on ClipSndPlay
  Global SoundName

  puppetSound SoundName
  updateStage
end ClipSndPlay
---------------------------------------------
on IntroVid
  Global VolumeVar

  Set the castNum of sprite 30 = 401
  preload 401
  Set the movieRate of sprite 30 to 1
  Set the volume of sprite 30 = VolumeVar
  --Set the visibility of sprite 30 to True
  if the preload of cast 401 then
    repeat while the movieRate of sprite 30
      updateStage
      if the mouseDown then exit
    end repeat
  end if
end IntroVid
---------------------------------------------

on VidHandler
  Global VolumeVar,n,IntroVid

  --Set vidcast = 400 + n
  Set the castNum of sprite 30 = 400 + n
  preload 400 + n
  Set the movieRate of sprite 30 to 1
  Set the volume of sprite 30 = VolumeVar
  Set the visibility of sprite 30 to True
  repeat while the movieRate of sprite 30
    updateStage
    if the mouseDown then exit
  end repeat
  --Set the visibility of sprite 30 to False
  --end if

end VidHandler
---------------------------------------------
on CpBnUpdate
  Global ClipLoc,ScaleFac,ButtonNum

  Put 120/ScaleFac into field "TotalItems"
  -----------PUT ButtonNum
  Set n = getAt(CpBnList,ButtonNum)
  -----------PUT n
  puppetSprite 37, true -- slider
  Set the castNum of sprite 37 = 198 -- or put 198 off screen at prev. marker
  Set the locH of sprite 37 = (n*ScaleFac) + 234
  Set the LocV of sprite 37 = 344
  --Set the constraint of sprite 37 to 36
  updateStage

  Set ClipLoc = (the locH of sprite 37) -1 -- trace
  Set the forecolor of cast "NameField" = 0
  Set the textStyle of field "NameField" = "bold,extend"
  SliderReadOut
  FieldReadOut
  updateStage

end CpBnUpdate
---------------------------------------------

on VolumeHandler
  Global VolumeVar

  repeat while the mouseDown

    puppetSprite 23, True
    Set the castNum of sprite 23 = 97 -- backpanel
    Set the locH of sprite 23 to 19
    Set the locV of sprite 23 = 317

    puppetSprite 45, True
    Set the castNum of sprite 45 = 214 -- track
    Set the locH of sprite 45 to 19
    Set the locV of sprite 45 to 316

    puppetSprite 46, True
    Set the castNum of sprite 46 to 95 -- slider
    Set the moveableSprite of sprite 46 to True
    Set the constraint of sprite 46 to 45
    Set the locH of sprite 46 to 22
    Set the locV of sprite 46 to the mouseV

    Put ((the mouseV - 320)*-6)+250 into VolumeVar
    If VolumeVar > 255 then set VolumeVar = 255
    If VolumeVar < 0 then set VolumeVar = 0
    Set the volume of sound 1 to VolumeVar
    updateStage

  end repeat

  puppetSprite 23, false
  puppetSprite 45, false
  puppetSprite 46, false

end VolumeHandler
---------------------------------------------
on VolumeIcon
  Global VolumeVar

  puppetSprite 23, True
  Set the locV of sprite 23 to 334

  If VolumeVar < 5 then
    set the castNum of sprite 23 = 144
  else
    set the castNum of sprite 23 = 146 + 2*(integer(VolumeVar/64))
  end if
  updateStage

end VolumeIcon
---------------------------------------------
on CredSclBnHandler n
  Global IDVar,CrdMaxNum

  ButtonHandler
  Set IDVar = IDVar + n
  If IDVar < 0 then
    Set IDVar = 0
    exit --set IDVar = 0
  end if

  If IDVar > CrdMaxNum then
    set IDVar = CrdMaxNum
    exit
  end if

  CreditsUpdate n
  WindowBarUpdate

end CredSclBnHandler
---------------------------------------------
on CreditsUpdate n
  Global IDVar


  repeat with i = 35 to 39
    PuppetSprite i, True
  end repeat

  repeat with i = 35 to 39
    Set the castNum of sprite i = (the castNum of sprite i) + n
  end repeat
  updateStage

end CreditsUpdate
---------------------------------------------
on WindowBarUpdate
  Global IDVar,CredBarIncr

  puppetSprite 34, True
  Set the locV of sprite 34 = 48 + IDVar*CredBarIncr
  updateStage

end WindowBarUpdate
---------------------------------------------
on InfoBnHandler n
  Global IDVar

  puppetSprite 48, False
  ButtonHandler
  Set var = 300  + n + IDVar
  If var = 315 then
    CprtHandler
  else

    ---PUT var
    Set the forecolor of cast "CreditsInfoDisplay" = 0
    Set the textStyle of field "CreditsInfoDisplay" = "bold,extend"
    Set the text of field "CreditsInfoDisplay" to the text of cast var
    --PUT the text of field "CreditsInfoDisplay"
    --Set the text of field "CreditsInfoDisplay" = the text of cast var
    --         text rel. to cast no. & sprite no. (the locV of sprite n)
  end if

end InfoBnHandler
---------------------------------------------
on CprtHandler -- copyright


  puppetSprite 48, true
  Set the castNum of sprite 48 = 315
  Set the locH of sprite 48 = 400
  Set the locH of sprite 48 = 431
  updateStage

end CprtHandler
--==============================================================

--if ((the castNum of sprite the clickOn) = the mouseCast) then
--Set the castnum of sprite the clickon = n
--updateStage
--end if
---------------if not IsInside then
--Set the castnum of sprite the clickon = n - 1
--updateStage
--Set Go = False
--exit repeat
---------else if IsInside and not Go then
-----------Set the castnum of sprite the clickon = n
-----------updateStage
-----------Set Go = true
----------------------------------------------------------------
--Set the puppet of sprite 48 to True  -- button
--Set the locH of sprite 48 = 599
--Set the locV of sprite 48 = 304
--Set the castNum of sprite 48 = 173
--updateStage

--Set the puppet of sprite 33 to True -- bar
--Set the castNum of sprite 33 = 202
--Set the locH of sprite 33 = 542
--Set the locV of sprite 33 = 170


--Set the puppet of sprite 25 to True -- text
--Set the castNum of sprite 25 = 200
--Set the locH of sprite 25 = 211
--Set the locV of sprite 25 = -226
--updateStage

--on mouseDown

--Set sprite 48,True
--Set the locH of sprite 48 =
--Set the locV of sprite 48 =
--Set the castNum of sprite 48 =
--update stage

--end mouseDown

--on mouseUp

--Set the castNum of sprite 48 = 133
--Set sprite 48,False

--end mouseUp



--Set the visible of sprite 25 = false
--Put ClipLoc - 234 into field "LocDisplay"
--Set the visible of sprite 24 = true
--updateStage

--puppetSprite 23, false
--puppetSprite 45, false
--puppetSprite 46, false

--------PUT "______________"
--------PUT VolumeVar
--------PUT integer(VolumeVar/64)
--------PUT the castNum of sprite 23 - 146
--------PUT the castNum of sprite 23